home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Magazine / InternetPD / Soliton / Extras / REKO2Soliton.pprx < prev   
Encoding:
Text File  |  1998-03-28  |  2.6 KB  |  90 lines
  1. /* Personal Paint Amiga Rexx script - Copyright 1996 Cloanto Italia srl */
  2.  
  3. /* $VER: REKO2Soliton.pprx 1.0 */
  4.  
  5. /** ENG
  6.  This script converts a REKO cardset into a Soliton cardset. 
  7.  
  8.  Caveats: For HAM cardsets the REKO cardset has to be saved as a picture 
  9.  (e.g. IFF ILBM) before using this script. The number of colours is reduced to
  10.  a maximum of 256. The PPaint screen height should not exceed 520 pixel.
  11. */
  12.  
  13. IF ARG(1, EXISTS) THEN
  14.         PARSE ARG PPPORT
  15. ELSE
  16.         PPPORT = 'PPAINT'
  17.  
  18. IF ~SHOW('P', PPPORT) THEN DO
  19.         IF EXISTS('PPaint:PPaint') THEN DO
  20.                 ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
  21.                 DO 30 WHILE ~SHOW('P',PPPORT)
  22.                          ADDRESS COMMAND 'Wait >NIL: 1 SEC'
  23.                 END
  24.         END
  25.         ELSE DO
  26.                 SAY "Personal Paint could not be loaded."
  27.                 EXIT 10
  28.         END
  29. END
  30.  
  31. IF ~SHOW('P', PPPORT) THEN DO
  32.         SAY 'Personal Paint Rexx port could not be opened'
  33.         EXIT 10
  34. END
  35.  
  36. ADDRESS VALUE PPPORT
  37. OPTIONS RESULTS
  38. OPTIONS FAILAT 10000
  39.  
  40. Get 'LANG'
  41. IF RESULT = 1 THEN DO         /* Deutsch */
  42.         txt_err_oldclient = 'Fuer dieses Skript_ist eine neuere Version_von Personal Paint erforderlich'
  43. END
  44. ELSE DO                         /* English */
  45.         txt_err_oldclient = 'This script requires a newer_version of Personal Paint'
  46. END
  47.  
  48. Version 'REXX'
  49. IF RESULT < 7 THEN DO
  50.         RequestNotify 'PROMPT "'txt_err_oldclient'"'
  51.         EXIT 10
  52. END
  53.  
  54. LoadImage
  55. IF RC = 0 THEN DO
  56.         Set '"Transp=0"'
  57.         DO i = 0 to 12
  58.                 DO j = 0 to 3
  59.                         DefineBrush (90*i+2) (131*j+1) (90*i+89) (131*j+130) erase
  60.                         SetBrushHandle upperleft
  61.                         PutBrush (88 * i) (130 * j)
  62.                 END j
  63.         END i
  64.         Get 'ImageW'
  65.         Breite = RESULT
  66.         IF Breite = 1532 THEN DO
  67.                 DrawRectangle 1144 0 1232 520 fill erase
  68.                 DefineBrush 1352 132 1439 261 erase
  69.  
  70.                 SetBrushHandle upperleft
  71.                 PutBrush 1144 0
  72.                 DefineBrush 1262 132 1349 261 erase
  73.                 SetBrushHandle upperleft
  74.                 PutBrush 1144 130
  75.         END
  76.         IF Breite = 1262 THEN DO
  77.                 DrawRectangle 1144 0 1232 129 fill erase
  78.                 DefineBrush 1172 132 1259 261 erase
  79.                 SetBrushHandle upperleft
  80.                 PutBrush 1144 0
  81.                 DefineBrush 1172 263 1259 392 erase
  82.                 SetBrushHandle upperleft
  83.                 PutBrush 1144 130
  84.                 PutBrush 1144 260 erase
  85.         END
  86.         Set 'Force "IMAGEW=1232" "IMAGEH=520"'
  87.         SaveImage 'force'
  88. END
  89.  
  90.